home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / ghost / gs403src_gs.lha / gs4.03 / gsdevice.c < prev    next >
C/C++ Source or Header  |  1996-04-29  |  12KB  |  395 lines
  1. /* Copyright (C) 1989, 1996 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* gsdevice.c */
  20. /* Device operators for Ghostscript library */
  21. #include "memory_.h"            /* for memcpy */
  22. #include "gx.h"
  23. #include "gscdefs.h"            /* for gs_lib_device_list */
  24. #include "gserrors.h"
  25. #include "gsstruct.h"
  26. #include "gspath.h"            /* gs_initclip prototype */
  27. #include "gspaint.h"            /* gs_erasepage prototype */
  28. #include "gsmatrix.h"            /* for gscoord.h */
  29. #include "gscoord.h"            /* for gs_initmatrix */
  30. #include "gzstate.h"
  31. #include "gxcmap.h"
  32. #include "gxdevice.h"
  33. #include "gxdevmem.h"
  34.  
  35. /* Include the extern for the device list. */
  36. extern_gs_lib_device_list();
  37.  
  38. /* Finalization for devices: close the device if it is open. */
  39. void
  40. gx_device_finalize(void *vptr)
  41. {    discard(gs_closedevice((gx_device *)vptr));
  42. }
  43.  
  44. /* GC procedures */
  45. #define fdev ((gx_device_forward *)vptr)
  46. private ENUM_PTRS_BEGIN(device_forward_enum_ptrs) return 0;
  47.     case 0:
  48.       *pep = gx_device_enum_ptr(fdev->target);
  49.       break;
  50. ENUM_PTRS_END
  51. private RELOC_PTRS_BEGIN(device_forward_reloc_ptrs) {
  52.     fdev->target = gx_device_reloc_ptr(fdev->target, gcst);
  53. } RELOC_PTRS_END
  54. #undef fdev
  55.  
  56. /* Structure descriptors.  These must follow the procedures, because */
  57. /* we can't conveniently forward-declare the procedures. */
  58. /* (See gxdevice.h for details.) */
  59. public_st_device();
  60. public_st_device_forward();
  61. public_st_device_null();
  62. /* A fake descriptor for devices whose descriptor we can't find. */
  63. gs_private_st_complex_only(st_device_unknown, byte, "gx_device(unknown)",
  64.   0, 0, 0, gx_device_finalize);
  65.  
  66. /* GC utilities */
  67. /* Enumerate or relocate a device pointer for a client. */
  68. gx_device *
  69. gx_device_enum_ptr(gx_device *dev)
  70. {    if ( dev == 0 || dev->memory == 0 )
  71.       return 0;
  72.     return dev;
  73. }
  74. gx_device *
  75. gx_device_reloc_ptr(gx_device *dev, gc_state_t *gcst)
  76. {    if ( dev == 0 || dev->memory == 0 )
  77.       return dev;
  78.     return gs_reloc_struct_ptr(dev, gcst);
  79. }
  80.  
  81. /* Set up the device procedures in the device structure. */
  82. /* Also copy old fields to new ones. */
  83. void
  84. gx_device_set_procs(gx_device *dev)
  85. {    if ( dev->static_procs != 0 )        /* 0 if already populated */
  86.     {    dev->std_procs = *dev->static_procs;
  87.         dev->static_procs = 0;
  88.     }
  89. }
  90.  
  91. /* Initialize a device just after allocation. */
  92. int
  93. gdev_initialize(gx_device *dev)
  94. {    *dev = *(gx_device *)&gs_null_device;
  95.     return 0;
  96. }
  97.  
  98. /* Flush buffered output to the device */
  99. int
  100. gs_flushpage(gs_state *pgs)
  101. {    gx_device *dev = gs_currentdevice(pgs);
  102.     return (*dev_proc(dev, sync_output))(dev);
  103. }
  104.  
  105. /* Make the device output the accumulated page description */
  106. int
  107. gs_copypage(gs_state *pgs)
  108. {    return gs_output_page(pgs, 1, 0);
  109. }
  110. int
  111. gs_output_page(gs_state *pgs, int num_copies, int flush)
  112. {    gx_device *dev = gs_currentdevice(pgs);
  113.     int code;
  114.  
  115.     if ( dev->IgnoreNumCopies )
  116.       num_copies = 1;
  117.     code = (*dev_proc(dev, output_page))(dev, num_copies, flush);
  118.     if ( code >= 0 )
  119.     {    dev->PageCount += num_copies;
  120.         if ( flush )
  121.           dev->ShowpageCount++;
  122.     }
  123.     return code;
  124. }
  125.  
  126. /* Copy scan lines from an image device */
  127. int
  128. gs_copyscanlines(gx_device *dev, int start_y, byte *data, uint size,
  129.   int *plines_copied, uint *pbytes_copied)
  130. {    uint line_size = gx_device_raster(dev, 0);
  131.     uint count = size / line_size;
  132.     uint i;
  133.     byte *dest = data;
  134.     for ( i = 0; i < count; i++, dest += line_size )
  135.     {    int code = (*dev_proc(dev, get_bits))(dev, start_y + i, dest, NULL);
  136.         if ( code < 0 )
  137.         {    /* Might just be an overrun. */
  138.             if ( start_y + i == dev->height ) break;
  139.             return_error(code);
  140.         }
  141.     }
  142.     if ( plines_copied != NULL )
  143.       *plines_copied = i;
  144.     if ( pbytes_copied != NULL )
  145.       *pbytes_copied = i * line_size;
  146.     return 0;
  147. }
  148.  
  149. /* Get the current device from the graphics state. */
  150. gx_device *
  151. gs_currentdevice(const gs_state *pgs)
  152. {    return pgs->device;
  153. }
  154.  
  155. /* Get the name of a device. */
  156. const char *
  157. gs_devicename(const gx_device *dev)
  158. {    return dev->dname;
  159. }
  160.  
  161. /* Get the initial matrix of a device. */
  162. void
  163. gs_deviceinitialmatrix(gx_device *dev, gs_matrix *pmat)
  164. {    fill_dev_proc(dev, get_initial_matrix, gx_default_get_initial_matrix);
  165.     (*dev_proc(dev, get_initial_matrix))(dev, pmat);
  166. }
  167.  
  168. /* Get the N'th device from the known device list */
  169. const gx_device *
  170. gs_getdevice(int index)
  171. {    const gx_device **list;
  172.     int count = gs_lib_device_list(&list, NULL);
  173.  
  174.     if ( index < 0 || index >= count )
  175.       return 0;            /* index out of range */
  176.     return list[index];
  177. }
  178.  
  179. /* Clone an existing device. */
  180. int
  181. gs_copydevice(gx_device **pnew_dev, const gx_device *dev, gs_memory_t *mem)
  182. {    gx_device *new_dev;
  183.     const gs_memory_struct_type_t *std = dev->stype;
  184.  
  185.     /*
  186.      * Because command list devices have complicated internal pointer
  187.      * structures, we allocate all device instances as immovable.
  188.      */
  189.     if ( std == 0 )
  190.       {    /*
  191.          * This is the statically allocated prototype.  Find its
  192.          * structure descriptor, and fill it in if this is the first
  193.          * time we've needed it.  (Right now we always fill it in,
  194.          * for simplicity.)
  195.          */
  196.         const gx_device **list;
  197.         gs_memory_struct_type_t *st;
  198.         int count = gs_lib_device_list(&list, &st);
  199.         int i;
  200.         bool forward = false;
  201.         const gx_device_procs *procs = dev->static_procs;
  202.  
  203.         for ( i = 0; list[i] != dev; ++i )
  204.           if ( i == count )
  205.           {    /* We can't find a structure descriptor for */
  206.             /* this device.  Allocate it as bytes and */
  207.             /* hope for the best. */
  208.             std = &st_device_unknown;
  209.             new_dev = gs_alloc_struct_array_immovable(mem,
  210.                 dev->params_size, gx_device, st,
  211.                 "gs_copydevice(unknown)");
  212.             goto out;
  213.           }
  214.         st += i;
  215.         /*
  216.          * Try to figure out if this is a forwarding device.
  217.          * All printer devices, and no other devices, have
  218.          * a null fill_rectangle procedure; for other devices,
  219.          * we look for a likely forwarding procedure in the vector.
  220.          * The algorithm isn't foolproof, but it's all we've got.
  221.          */
  222.         if ( procs == 0 )
  223.           procs = &dev->std_procs;
  224.         if ( procs->fill_rectangle == 0 ||
  225.              procs->get_xfont_procs == gx_forward_get_xfont_procs
  226.            )
  227.           forward = true;
  228.         if ( forward )
  229.           *st = st_device_forward;
  230.         else
  231.           *st = st_device;
  232.         st->ssize = dev->params_size;
  233.         std = st;
  234.       }
  235.     new_dev = gs_alloc_struct_immovable(mem, gx_device, std,
  236.                         "gs_copydevice");
  237. out:    if ( new_dev == 0 )
  238.       return_error(gs_error_VMerror);
  239.     memcpy(new_dev, dev, dev->params_size);
  240.     new_dev->memory = mem;
  241.     new_dev->stype = std;
  242.     new_dev->is_open = false;
  243.     *pnew_dev = new_dev;
  244.     return 0;
  245. }
  246.  
  247. /* Set the device in the graphics state */
  248. int
  249. gs_setdevice(gs_state *pgs, gx_device *dev)
  250. {    int code = gs_setdevice_no_erase(pgs, dev);
  251.     if ( code == 1 )
  252.       code = gs_erasepage(pgs);
  253.     return code;
  254. }
  255. int
  256. gs_setdevice_no_erase(gs_state *pgs, gx_device *dev)
  257. {    bool was_open = dev->is_open;
  258.     int code;
  259.     /* Initialize the device */
  260.     if ( !was_open )
  261.     {    gx_device_fill_in_procs(dev);
  262.         if ( gs_device_is_memory(dev) )
  263.         {    /* Set the target to the current device. */
  264.             gx_device *odev = gs_currentdevice_inline(pgs);
  265.             while ( odev != 0 && gs_device_is_memory(odev) )
  266.                 odev = ((gx_device_memory *)odev)->target;
  267.             ((gx_device_memory *)dev)->target = odev;
  268.         }
  269.         code = (*dev_proc(dev, open_device))(dev);
  270.         if ( code < 0 ) return_error(code);
  271.         dev->is_open = true;
  272.     }
  273.     pgs->device = dev;
  274.     gx_set_cmap_procs(pgs);
  275.     pgs->ctm_default_set = false;
  276.     if (    (code = gs_initmatrix(pgs)) < 0 ||
  277.         (code = gs_initclip(pgs)) < 0
  278.        )
  279.         return code;
  280.     gx_unset_dev_color(pgs);
  281.     /* If we were in a charpath or a setcachedevice, */
  282.     /* we aren't any longer. */
  283.     pgs->in_cachedevice = 0;
  284.     pgs->in_charpath = 0;
  285.     return (was_open ? 0 : 1);
  286. }
  287.  
  288. /* Make a null device. */
  289. void
  290. gs_make_null_device(gx_device_null *dev, gs_memory_t *mem)
  291. {    *dev = gs_null_device;
  292.     dev->memory = mem;
  293. }
  294.  
  295. /* Select the null device.  This is just a convenience. */
  296. void
  297. gs_nulldevice(gs_state *pgs)
  298. {    gs_setdevice(pgs, (gx_device *)&gs_null_device);
  299. }
  300.  
  301. /* Close a device.  The client is responsible for ensuring that */
  302. /* this device is not current in any graphics state. */
  303. int
  304. gs_closedevice(gx_device *dev)
  305. {    int code = 0;
  306.     if ( dev->is_open )
  307.        {    code = (*dev_proc(dev, close_device))(dev);
  308.         if ( code < 0 ) return_error(code);
  309.         dev->is_open = false;
  310.        }
  311.     return code;
  312. }
  313.  
  314. /* Install enough of a null device to suppress the page device check */
  315. /* during the execution of a restore/grestore/setgstate. */
  316. void
  317. gx_device_no_output(gs_state *pgs)
  318. {    pgs->device = (gx_device *)&gs_null_device;
  319. }
  320.  
  321. /* Just set the device without reinitializing. */
  322. /* (For internal use only.) */
  323. void
  324. gx_set_device_only(gs_state *pgs, gx_device *dev)
  325. {    pgs->device = dev;
  326. }
  327.  
  328. /* Compute the size of one scan line for a device, */
  329. /* with or without padding to a word boundary. */
  330. uint
  331. gx_device_raster(const gx_device *dev, bool pad)
  332. {    ulong bits = (ulong)dev->width * dev->color_info.depth;
  333.     return (pad ? bitmap_raster(bits) : (uint)((bits + 7) >> 3));
  334. }
  335.  
  336. /* Adjust the resolution for devices that only have a fixed set of */
  337. /* geometries, so that the apparent size in inches remains constant. */
  338. /* If fit=1, the resolution is adjusted so that the entire image fits; */
  339. /* if fit=0, one dimension fits, but the other one is clipped. */
  340. int
  341. gx_device_adjust_resolution(gx_device *dev,
  342.   int actual_width, int actual_height, int fit)
  343. {    double width_ratio = (double)actual_width / dev->width ;
  344.     double height_ratio = (double)actual_height / dev->height ;
  345.     double ratio =
  346.         (fit ? min(width_ratio, height_ratio) :
  347.          max(width_ratio, height_ratio));
  348.     dev->x_pixels_per_inch *= ratio;
  349.     dev->y_pixels_per_inch *= ratio;
  350.     gx_device_set_width_height(dev, actual_width, actual_height);
  351.     return 0;
  352. }
  353.  
  354. /* Set the HWMargins to values defined in inches. */
  355. /* If move_origin is true, also reset the Margins. */
  356. /* Note that this assumes a printer-type device (Y axis inverted). */
  357. void
  358. gx_device_set_margins(gx_device *dev, const float *margins /*[4]*/,
  359.   bool move_origin)
  360. {    int i;
  361.     for ( i = 0; i < 4; ++i )
  362.         dev->HWMargins[i] = margins[i] * 72.0;
  363.     if ( move_origin )
  364.     {    dev->Margins[0] = -margins[0] * dev->MarginsHWResolution[0];
  365.         dev->Margins[1] = -margins[3] * dev->MarginsHWResolution[1];
  366.     }
  367. }
  368.  
  369. /* Set the width and height, updating MediaSize to remain consistent. */
  370. void
  371. gx_device_set_width_height(gx_device *dev, int width, int height)
  372. {    dev->width = width;
  373.     dev->height = height;
  374.     dev->MediaSize[0] = width * 72.0 / dev->x_pixels_per_inch;
  375.     dev->MediaSize[1] = height * 72.0 / dev->y_pixels_per_inch;
  376. }
  377.  
  378. /* Set the resolution, updating width and height to remain consistent. */
  379. void
  380. gx_device_set_resolution(gx_device *dev, floatp x_dpi, floatp y_dpi)
  381. {    dev->x_pixels_per_inch = x_dpi;
  382.     dev->y_pixels_per_inch = y_dpi;
  383.     dev->width = dev->MediaSize[0] * x_dpi / 72.0 + 0.5;
  384.     dev->height = dev->MediaSize[1] * y_dpi / 72.0 + 0.5;
  385. }
  386.  
  387. /* Set the MediaSize, updating width and height to remain consistent. */
  388. void
  389. gx_device_set_media_size(gx_device *dev, floatp media_width, floatp media_height)
  390. {    dev->MediaSize[0] = media_width;
  391.     dev->MediaSize[1] = media_height;
  392.     dev->width = media_width * dev->x_pixels_per_inch / 72.0 + 0.499;
  393.     dev->height = media_height * dev->y_pixels_per_inch / 72.0 + 0.499;
  394. }
  395.